home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 1 / LIGHT-ROM 1 (Amiga Library Services)(1994).iso / ffdisks / d885.lha / False / other / countwl.f < prev    next >
Text File  |  1993-07-16  |  220b  |  20 lines
  1. {countwl.f}
  2. {count lines and words }
  3. 0a:0b:0c:
  4. [^$1_=~]
  5. [$10=
  6.   [a;1+a:0c:]?
  7.   $$d:' =
  8.   d;'   =|
  9.   d;10=
  10.    |$
  11.      [c;~[b;1+b:1_c:]?]?
  12.      ~[0c:]?
  13.   |
  14. ]a;1-a:b;1-b:
  15. #"Number of words: "b;."
  16. Number of lines: "a;."
  17. "
  18.  
  19.  
  20.